Il sagit de quatre librairies qui seront indispensables à l’execution des taches dans ce manuel. Si le chargement de la librairie n’est pas encore fait , vous pouvez cliquer sur packkage et dans la barre de recherche, selectionner le package que vous souhaiter installer. vous devez repeter cette opération pour tous vos packages.
library(mapsf)
library(sf)
## Linking to GEOS 3.10.2, GDAL 3.4.2, PROJ 8.2.1; sf_use_s2() is TRUE
library(mapview)
library(leafsync)
Nous allons utiliser des données vectorielles(régions, départements,localités et communes) au format shapefile que nous avons bien copiées dans le dossier data qui se trouve dans le même emplacement que le projet.
reg <-st_read("data/Senegal/lim_reg.shp", quiet = TRUE)
com <- st_read("data/Senegal/communes.shp", quiet = TRUE)
dep <-st_read("data/Senegal/dep.shp", quiet = TRUE)
loc <-st_read("data/Senegal/loc.shp", quiet = TRUE)
Carte1 <- mapview(reg, zcol='NOM',
layer.name = 'Region',
stroke=FALSE,
legend= FALSE
)
Carte2 <- mapview(reg, zcol='pop',
layer.name = 'Population',
homebutton=FALSE,
legend=TRUE,
col.regions = RColorBrewer::brewer.pal(5, "RdYlGn"), alpha.regions = 1
)
## Warning: Found less unique colors (5) than unique zcol values (14)!
## Interpolating color vector to match number of zcol values.
library(leafsync)
sync(Carte1, Carte2)
mapView(com, zcol= 'CCRCA',
homebutton = FALSE,
legend = FALSE) +
mapview(dep, zcol= 'NOM',
layer.name = 'Departement',
homebutton = FALSE,
legend = FALSE)+
mapview(loc,
legend = FALSE)